uses crt;
type
  Telement = record
              tstart : real;
              sost : boolean;
            end;



const
  nu = 1.4;
  mu = 0.010;
  T1 = 1.8e+4;
  Tm = 1e+5;
  n = 10000;
  ind : word = 1;
  tstartall : real = 0;
  sostall : boolean = true;



var
  po: integer;
  elements : array [1..3] of Telement;
  totk : array [1..1000] of real;
  totksr,totkmin,totkmax : real;
  tvosst : array [1..1000] of real;
  tvosstsr,tvosstmin,tvosstmax : real;
  P : array [1..3] of real;
  randoms : array [1..3] of real;
  i,j : longint;
  cur_time : real;
  change : boolean;
  kg : real;



function otkaz (t:real;t0:real) : real;
var
  value : real;
begin
  value := exp (-(exp(nu*ln(t-t0)))/T1);
  otkaz := value;
end;



function vosst (t:real;t0:real) : real;
var
  value : real;
begin
  value := exp (-mu*(t-t0));
  vosst := value;
end;



begin
  clrscr;
  randomize;



  for j := 1 to 3 do
  begin
    elements[j].sost := true;
    elements[j].tstart := 0;
  end;



  for i := 0 to n do
  begin
    cur_time := Tm/n*i;
    for j := 1 to 3 do
    begin
      randoms[j] := random;
      if elements[j].sost then
      begin
        P[j] := otkaz (cur_time,elements[j].tstart);
      end
      else
      begin
        P[j] := vosst (cur_time,elements[j].tstart);
      end;
      if P[j]<randoms[j] then
      begin
        elements[j].tstart := cur_time;
        elements[j].sost := not elements[j].sost;
      end;
    end;



    change := false;
    for j := 1 to 3 do
    begin
      change := change or elements[j].sost;
    end;



    if (change xor sostall) then
    begin
     if sostall then
     begin
       totk[ind] := cur_time - tstartall;
       tstartall := cur_time;
     end
     else
     begin
       tvosst[ind] := cur_time - tstartall;
       tstartall := cur_time;
       inc(ind);
     end;
     sostall := not sostall;
    end;
  end;



  totksr := 0;
  totkmin := totk[1];
  totkmax := totk[1];
  tvosstsr := 0;
  tvosstmin := tvosst[1];
  tvosstmax := tvosst[1];
  for i := 1 to ind-1 do
  begin
    if tvosstmin>tvosst[i] then tvosstmin := tvosst[i];
    if tvosstmax<tvosst[i] then tvosstmax := tvosst[i];
    if totkmin>totk[i] then totkmin := totk[i];
    if totkmax<totk[i] then totkmax := totk[i];
    totksr := totksr + totk[i];
    tvosstsr := tvosstsr + tvosst[i];
    writeln (i,'. ',totk[i]:7:2,' ',tvosst[i]:7:2);
  end;



  totksr := totksr/(ind-1);
  tvosstsr := tvosstsr/(ind-1);
  kg := totksr/(totksr+tvosstsr);



  writeln (totksr:7:2,' ',tvosstsr:7:2);
  writeln (totkmin:7:2,' ',totkmax:7:2);
  writeln (tvosstmin:7:2,' ',tvosstmax:7:2);
  writeln (kg:7:5);
  readln;
end.